' Stick with Me.txt b+ 2021-03-17
' inspired by Ken Sierra's game.

haha\
	paper 0;0;39
	cls
	cnt = a[cnt,1]
	if eq[m[cnt, 45],1]
		cx = a[rnd[s[xmax,200]],100]
		cy = a[rnd[s[ymax,200]],100]
	fi
	r = 100
	[
		if m[d[r,10],2]
			ink 255;0;0
		el
			ink 255;255;255
		fi
		fcirc cx;cy;r
		r = s[r,10]
		jmp lte[r,0]
	]
	poll
	if lte[sqr[p[s[cx,mousex],2],p[s[cy,mousey],2]],50]
		score = a[score,5]
	fi
	score = s[score,1]
	ink 255;255;0
	paper 0;0;0;0
	cpr 21;score 
	show -1
	wait .005
goto haha\